home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / shazam.exe / INPUT1.VIR < prev    next >
Encoding:
Text File  |  1992-09-01  |  1.3 KB  |  40 lines
  1.    {|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  2.  
  3.    DATA
  4.  
  5.    |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
  6. CONST
  7.    MaxRecs                   = 5 ;
  8.    FldCnt                    = 4 ;
  9.    CurRec                    : longint = 1 ;
  10. TYPE
  11.    TDataRecord               = array [ 1..FldCnt ] of
  12.                                string ;
  13.    TDataArray                = array [ 1..MaxRecs ] of
  14.                                TDataRecord ;
  15. VAR
  16.    DataArray                 : TDataArray ;
  17.    MyDialog                  : PDialog ;
  18.    {|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  19.  
  20.    INIT
  21.  
  22.    |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
  23. procedure TGenericApp.PostInit ;
  24. {$IFDEF code}{$I input.src}{$ENDIF}
  25. var
  26.    R                         : TRect ;
  27. begin
  28.    FillChar ( DataArray , SizeOf ( DataArray ) , #0 ) ;
  29.    MyDialog                  := New ( PDialog , Init ( R , '' ) ) ;
  30. {$IFDEF code}
  31.    CopyDialog ( MakeDialog ,
  32.                 MyDialog ) ;
  33. {$ELSE}
  34.    CopyDialog ( PDIALOG ( RezFile^.Get ( 'DIALOG_INPUT' ) ) ,
  35.                 MyDialog ) ;
  36. {$ENDIF}
  37.    Desktop^.Insert ( MyDialog ) ;
  38.    ForceEvent ( evCommand , cmFirst ) ;               { to show Rec # }
  39. end ;
  40.